home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / bbs / tmg107.zip / MAGIC.ZIP / RANDOM.SCR < prev    next >
Text File  |  1997-01-01  |  788b  |  26 lines
  1. @#RANDOMEVENT_1
  2.   FlagValue ^VR01 RandomEvent_1 S
  3.   If ^VR01 <= 0
  4.     AddFlag RandomEvent_1 0 1 S
  5.     Set ^VR01 0
  6.   EndIf
  7.   Add ^VR01 1
  8.   AddFlag RandomEvent_1 ^VR01 1 S
  9.   Writeln "The Sky begins to fall!"
  10.   Return
  11. @#RANDOMEVENT_2
  12.   Writeln "`c`%                            Special Event!"
  13.   Writeln "`#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-"
  14.   Writeln "`3  From out of the sky, a great pale green light shines upon you!"
  15.   Writeln "`3  You can feel the intensity of the heat, yet it does not burn you."
  16.   Writeln "`3  Instead, it fills you with a great feeling of self and fulfillment."
  17.   Writeln "`%  (Charm +1, HP maxed)"
  18.   Add ^CS06 1
  19.   Set ^CS10 ^CS11
  20.   RunScript config.scr "1"
  21.   Return
  22. @#MAIN
  23.   Gosub ^VR01
  24.   Halt
  25. @#
  26.